\[E(\theta) = \sum_{i=1}^{N} \textbf{w} \cdot x_j\]

var_do_r <- TRUE
var_do_py = True
py$var_do_py
 TRUE
r.var_do_r
True
plot(iris$Sepal.Length, pch = 19)

par(mfrow=c(2,1))
plot(cars$dist, pch = 19)
plot(cars$speed, pch = 19)

g <- ggplot(cars,aes(dist,speed))+
  geom_line()
g

library(plotly)
Warning: package 'plotly' was built under R version 4.1.3

Attaching package: 'plotly'
The following object is masked from 'package:ggplot2':

    last_plot
The following object is masked from 'package:stats':

    filter
The following object is masked from 'package:graphics':

    layout
ggplotly(g)

1 Apresentação do Problema

2 Modelo 1

3 Modelo 2

4 Modelo 3

5 Comparando Modelos

6 Conclusão